Shareware Grab Bag/Shareware Grab Bag.iso/003/db3.arc/DEPMENU.PRG

Text File | 1984-10-25 | 2KB | 54 lines

      **********  Depmenu COMMAND FILE   **********
* Select deposits or perform houskeeping on the checkbook.
***************************************************
*
SELECT 1
USE Deptemp
SELECT 8
USE Deposits
SELECT 10
USE Invoices INDEX Invoices
DO WHILE .T.
   CLEAR
   @  3, 0 SAY '* * * * *   D E P O S I T S   &   C H E C K B O O K   * * * * *'
   @  5,20 SAY '   1> Enter In Coming Money'
   @  7,20 SAY '   2> Change our Check Number '
   @  9,20 SAY '   3> Change Checkbook Balance'
   @ 11, 0 SAY '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'
   @ 13,20 SAY 'Choose a number or press <ENTER>'
   @ 14, 0
   *
   WAIT ' ' TO Incoming
   *
   DO CASE
      CASE Incoming = '1'
         @ ROW(),0 SAY 'Loading In Coming Money'
         DO Deposits
      CASE Incoming = '2'
         RESTORE FROM Konstant
         CLEAR
         @ 3,20 SAY 'CHANGE CHECK NUMBER'
         @ 5, 0 SAY 'This is the next check number' GET NextCheck
         @ 6, 0 SAY 'To leave it unchanged, press <ENTER>'
         @ 7, 0 SAY 'To change it, type in the new number.'
         READ
         SAVE TO Konstant
      CASE Incoming = '3'
         RESTORE FROM Konstant
         CLEAR
         @ 3,20 SAY 'CHANGE CHECKBOOK BALANCE'
         @ 5, 0 SAY 'The current balance is:' GET MBalance
         @ 6, 0 SAY 'To leave it unchanged, press <ENTER>'
         @ 7, 0 SAY 'To change it, type in the new value.'
         READ
         SAVE TO Konstant
      CASE LEN(Incoming) = 0
         @ ROW(),0 SAY 'Returning to Main Menu'
         CLOSE DATABASE
         RETURN
         *
      OTHERWISE
      *
   ENDCASE Incoming
ENDDO